<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_dbCcrec_STRING MM_dbCcrec_STRING = "Driver={SQL Server}; Server=dbCcrec.db.3592490.hostedresource.com; Database=dbCcrec; Uid=dbCcrec; Pwd=Ccrec4513" %> <% Dim rs_gallery__MMColParam rs_gallery__MMColParam = "1" If (Request.QueryString("id") <> "") Then rs_gallery__MMColParam = Request.QueryString("id") End If %> <% Dim rs_gallery Dim rs_gallery_cmd Dim rs_gallery_numRows Set rs_gallery_cmd = Server.CreateObject ("ADODB.Command") rs_gallery_cmd.ActiveConnection = MM_dbCcrec_STRING rs_gallery_cmd.CommandText = "SELECT * FROM dbo.record WHERE id = ?" rs_gallery_cmd.Prepared = true rs_gallery_cmd.Parameters.Append rs_gallery_cmd.CreateParameter("param1", 5, 1, -1, rs_gallery__MMColParam) ' adDouble Set rs_gallery = rs_gallery_cmd.Execute rs_gallery_numRows = 0 %> Untitled Document
" />
" />
" />
<%=(rs_gallery.Fields.Item("title").Value)%>
<%=(rs_gallery.Fields.Item("Story").Value)%>

<% rs_gallery.Close() Set rs_gallery = Nothing %>